home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / F-French / (c)f1.d64 / alunissage (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  3KB  |  97 lines
  1. 110 REM
  2. 120 PRINT"[147]               ALUNISSAGE"
  3. 130 FOR I=1TO2500:NEXT
  4. 140 REM
  5. 150 PRINT"     ALUNISSAGE LUNAIRE SIMULE"
  6. 160 PRINT"     ---------- ------- ------"
  7. 190 PRINT"VOULEZ VOUS LES INSTRUCTIONS?"
  8. 195 PRINT"         (OUI OU NON)";
  9. 200 INPUTA$
  10. 220 IFA$="NON"THEN630
  11. 620 CLR
  12. 630 PRINT"[147]               BONNE CHANCE"
  13. 640 FORI=1TO3000:NEXT
  14. 650 PRINT"[147]"
  15. 670 PRINT"SEC  PIEDS VITESS. CARB. TRACE DISTANCE"
  16. 690 T=0:H=500:V=50:F=120
  17. 700 IFH>100THEN730
  18. 705 PRINT"[147]"
  19. 710 PRINTT;TAB(5);H;TAB(12);V;TAB(19);F;TAB(25);"I";TAB((H*3)/20+24);"*"
  20. 720 GOTO740
  21. 730 PRINTT;TAB(5);H;TAB(12);V;TAB(19);F;TAB(25);"I";TAB(H/24+19);"*"
  22. 740 INPUTB
  23. 750 IFB<0THEN910
  24. 760 IFB>30THENB=30
  25. 770 IFB>FTHENB=F
  26. 780 V1=V-B+5
  27. 790 F=F-B
  28. 800 H=H-.5*(V+V1)
  29. 810 IFH<=0THEN930
  30. 820 T=T+1
  31. 830 V=V1
  32. 840 IFF>0THEN700
  33. 850 IFB=0THEN890
  34. 860 PRINT"[147]        *****  PANNE SECHE  *****"
  35. 880 FOR I=1TO2500:NEXT
  36. 890 PRINTT;TAB(5);H;TAB(12);V;TAB(19);F;TAB(25);"I";TAB(H/24+19);"*"
  37. 910 B=0
  38. 920 GOTO780
  39. 930 PRINT"*****  CONTACT  *****"
  40. 940 FOR I=1TO2500:NEXT
  41. 960 H=H+.5*(V+V1)
  42. 970 IFB=5THEN1000
  43. 980 D=(-V+SQR(V*V+H*(10-2*B)))/(5-B)
  44. 990 GOTO1010
  45. 1000 D=H/V
  46. 1010 V1=V+(5-B)*D
  47. 1020 PRINT"TOUCHE LE SOL A";T+D;"SECONDE."
  48. 1030 PRINT"VITESSE D'ALUNISSAGE=";V1;"PIEDS/SEC"
  49. 1040 PRINTF;"UNITES DE CARBURANT DANS LES            RESERVOIRS"
  50. 1050 FORI=1TO5000:NEXT
  51. 1070 IFV1<=.5THEN1100
  52. 1080 IFV1<=2THENGOSUB1420:GOTO1190
  53. 1090 GOTO1140
  54. 1100 PRINT"[147]  FELICITATIONS!  ALUNISSAGE PARFAIT!"
  55. 1110 FORI=1TO2500:NEXT
  56. 1120 GOSUB1530
  57. 1130 GOTO1190
  58. 1140 PRINT"[147] DESOLE, MAIS VOUS L'AVEZ ECRASE ! ! !!!"
  59. 1150 FORI=1TO2500:NEXT
  60. 1160 PRINT"[147]      DES CONDOLEANCES ADEQUATES"
  61. 1170 PRINT"    SERONT ENVOYEES A VOTRE FAMILLE"
  62. 1180 FORI=1TO2500:NEXT
  63. 1190 PRINT"    UNE AUTRE MISSION?(OUI OU NON)";
  64. 1200 INPUTC$
  65. 1220 IF C$<>"NON"THEN620
  66. 1230 PRINT"[147]    VOUS ETES PLUS SOUS MON CONTROLE"
  67. 1240 FORI=1TO2500:NEXT
  68. 1250 PRINT"[147]":END
  69. 1420 PRINT"[147]           ALUNISSAGE BRUTAL"
  70. 1440 FORI=1TO2500:NEXT
  71. 1450 PRINT"           A ETE TRES SECOUER"
  72. 1460 FORI=1TO2500:NEXT
  73. 1470 PRINT"        MAIS TOUJOURS EN VIE....."
  74. 1480 FORI=1TO2500:NEXT
  75. 1490 RETURN
  76. 1530 PRINT"[147]          QUEL EST VOTRE NOM?"
  77. 1540 INPUT"          ";MM$
  78. 1550 PRINT"[147]     [175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
  79. 1560 PRINT"     [180]        SATELITTE  LUNE      [170]"
  80. 1570 PRINT"     [180]        *********  ****      [170]"
  81. 1580 PRINT"     [180]                             [170]"
  82. 1590 PRINT"     [180]       BREVET DE PILOTE      [170]"
  83. 1600 PRINT"     [180]          DECERNE A          [170]"
  84. 1605 PRINT"     [180]                             [170]"
  85. 1610 PRINT"     [180]                             [170]"
  86. 1615 PRINT"     [180]           ";MM$
  87. 1620 PRINT"     [180]                             [170]"
  88. 1630 PRINT"     [180]  POUR ALUNISSAGE PARFAIT    [170]"
  89. 1640 PRINT"     [180]                             [170]"
  90. 1650 PRINT"     [180] NO";INT(RND(1)*899+100);
  91. 1652 PRINT"[157]"INT(RND(1)*9);
  92. 1654 PRINT"-";
  93. 1660 PRINTINT(RND(1)*89+10);INT(RND(1)*9);"   LUNAISON[170]"
  94. 1670 PRINT"     [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  95. 1680 FOR I=1TO7500:NEXT
  96. 1690 RETURN
  97.